home *** CD-ROM | disk | FTP | other *** search
/ SuperHack / SuperHack CD.bin / CODING / WINDOWS / LZAPI.ZIP / BCKUP.RC < prev    next >
Encoding:
Text File  |  1996-03-15  |  1.7 KB  |  44 lines
  1. /*----------------------------------------------------------------------*
  2.  *
  3.  *    B C K U P . R C   -     Dipl. Ing. Bernd Herd
  4.  *                Niederstr. 36
  5.  *                64285 Darmstadt
  6.  *                Germany
  7.  *                Tel./Fax: 06151 / 664717
  8.  *    (C) 1994-95 Bernd Herd
  9.  *
  10.  * WLHA.DLL Dynamic Link Library for Microsoft Windows 3.1
  11.  * makes it possible to extract Files from and add Files to LHA-Archives
  12.  * without using LHA.EXE
  13.  *
  14.  * This is a Demonstration Program to show you, how a simple
  15.  * Backup-Solution may work with WLHA.DLL. It is not intended to
  16.  * be a professional Backup Program.
  17.  *
  18.  * You may want to Copy the RC-Resource Files via the Dos-Command-
  19.  * line BRC -R BCKUP.RC before Compiling this Pascal-Program in the IDE.
  20.  *
  21.   ---------------------------------------------------------------*/
  22.  
  23. #include "bckupr.pas"
  24.  
  25. APP_ICON ICON "MDICHILD.ICO"
  26.  
  27. DEMO DIALOG 18, 18, 275, 170
  28. STYLE DS_MODALFRAME | WS_POPUP | WS_CAPTION | WS_SYSMENU
  29. CAPTION "WLHA Demo 1.0"
  30. BEGIN
  31.     CONTROL "&Ok", IDOK, "BUTTON", BS_DEFPUSHBUTTON | WS_CHILD | WS_VISIBLE | WS_TABSTOP, 10, 152, 30, 14
  32.     CONTROL "&Cancel", IDCANCEL, "BUTTON", BS_PUSHBUTTON | WS_CHILD | WS_VISIBLE | WS_TABSTOP, 54, 152, 30, 14
  33.     CONTROL "&Add", IDADD, "BUTTON", BS_PUSHBUTTON | WS_CHILD | WS_VISIBLE | WS_TABSTOP, 96, 152, 30, 14
  34. END
  35.  
  36. ABORT DIALOG 60, 55, 138, 61
  37. STYLE DS_MODALFRAME | WS_POPUP | WS_CAPTION | WS_SYSMENU | WS_VISIBLE
  38. CAPTION "Running LHA Compression"
  39. BEGIN
  40.     CONTROL "LHA-Compressor is running. Press Cancel if you don't want to wait any longer....", -1, "STATIC", SS_CENTER | WS_CHILD | WS_VISIBLE | WS_GROUP, 9, 6, 122, 41
  41.     CONTROL "&Cancel", IDCANCEL, "BUTTON", BS_PUSHBUTTON | WS_CHILD | WS_VISIBLE | WS_TABSTOP, 48, 36, 41, 18
  42. END
  43.  
  44.